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16-Sep-1984 01:40: AX-11 Bliss=-32 V4.0-74 p 1 
ease ieee $iidesss | aNsRt Othe Saeastteas oS2-1 a9? 4) 
0001 ! 
Mt :<bl f/width:80> 
% © MODULE bpa$assdeas ( ! Assign and deassign monitor calls 
— = '1=328' ' File: BPASSDEAS.832 Edit: $B8L1328 


BEGIN 


VeRO RARER AAR A ARERR A AREA EAA AE TEER A RAAT AAA ERATE AEET ERRATA 


'® 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B 


t 

sd 

® 

Py te 
® 

E USED AND COPIED * 

i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
4 ® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. * 
® 

* 

® 

* 

® 

® 


atataotatatotatetataetotatetetatotatetetetataetatetat=s 


WN SO OODNAUVEWN —QOOONAUSWN S$ QODNOAUSWN OVONOUS WN 
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a a a a ak a a a kk kk a dd td od td 8 I I IQOOOOO 
o 
® 


1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
5 
2 : DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
§ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
5 3 ieeeneneeeeeeeeeeeeeeeeseenenncenenncneneeeceesssnennnnennnnneeeeeeesesnnes 
3 3 i <bl f/uppercase_key> 
3 '<bl f/lowercase_user> 
0034 ! 
0035 
3 0036 '¢+ 
3 0037 ! FACILITY: PDP-11 BASIC=-PLUS/VAX 
3 0038 : 
? +44 ABSTRACT: 
4 0041 ‘ This module contains thé routines to support ASSIGN, DEASSIGN 
: 94 4 and DEASSIGN ALL functions. 
4 O64 ENVIRONMENT: Native mode VAX processor, User mode. 
46 046 AUTHOR: Jim Ibbett, CREATION DATE: 18-May-79. 
48 0048 1 | MODIFIED BY: 
49 0049 ‘ 
29 3230 } VERSION X01 
25 0054 : 2-Jul-79, Jim Ibbett 
5 5 ! 278 = Put logical names in process table (were in group table 
2¢ 0085 } during testing). 
56 B26 ‘ S-Jul-79, Jim Ibbett 
57 005 ! 245 = Fix bug in CNV_DEVNAM, 


2 
BPASASSDEAS ib-s6 -1984 01:40: AX-11 Bliss-32 V4.0-74 Pa 2 
1-328 1e-8ep-1986 O16 :83 SRC JBPASSDEAS .B32;1 i | 


BASRTL.SR AS AS (1) 
3 8 008 1! 
: 9 059 1! 5-Sep-79, V. Eriksson 
3 ¢ Boot : 309 = Modifications to comply with VAX RTL standards. 
| @ R008 1 i 10-Sep-79, V.Eriksson 
; oF 46d : 319 = Modifications to comply with VAX RTL standards. 
; 65 0065 1: 17-Sep-79, Jim Ibbett 
; & 0066 1! 325 = Fix bpagascii so null chars are ignored 
ar 0067 1 ! 1-326 = Change require files around. JBS 03-0CT-1979 
:; «468 0068 1! 1-362 - Make PIC. JBS 16-OCT-1979 
; +4 434 : } 1-328 = Replace signal of BPAS_INTCONCHK with OTSS_FATINTERR. SBL 16-Mar-1982 | 
; oe 0071 1. | 
See. 0072 1! 
eu. 0075 1 !<blf/page> 
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1-328 ae 91:90:83 YBASRTL SRE BPASSDEAS.832;1 . 


ae ore 1! 

.- 2 75 1°! SWITCHES: 

: oF | 

; He B78 : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
3) «(Bh 080 1! 

;- | 081 1 ! TABLE OF CONTENTS: 

: BS os 1 | 

3; B28 1 

3 689 4 1 FORWARD ROUTINE 

; B6 B082 1 paSassign, 

; 086 1 bpa$deassign 

; 8 0087 1 bpa$deass_all, 

; 8 0088 1 bpa$find_dab : NOVALUE, ! m 319 
; 0089 1 bpa$Smake_dab, 

s; 91 0090 1 bpa$Srelease_dab, 

> F 0091 1 bpaSascii, 

; 0092 1 cnv_devnam : NOVALUE, ! m 319 
; «94 0095 1 cnv ppn. , 
: «9S 0094 1 exit_handler : NOVALUE; 
> «%6 0095 1 

; oF 0096 1! 

; «98 0097 1 ! INCLUDE FILES: 

.... 0098 1! 

: 100 0099 1 

; 6101 0100 { REQUIRE ‘RTLIN:RTLPSECT'; 
3 19 0195 1 

: 10 tb 1 REQUIRE ‘RTLIN:BPASTRUCT'; 
3: 104 287 1 

3; 105 0288 1 REQUIRE ‘RTLIN:BPAFQBDEF'; 
: 106 0412 1 

3: 107 04135 1 REQUIRE ‘RTLIN:BPADABDEF'; 
: 108 0463 1 

; 109 0464 1 REQUIRE ‘'RTLIN:BPAERRDEF'; 
; 110 0660 1 

; (111 0661 1 LIBRARY ‘RTLSTARLE'; 

; 116 Robe 1 

: 11 63 1! 

; 6114 4 1 ! MACROS: 

: ie o66e | | NONE 

oc Sor O66? 1! 

: 118 866 1! 

; 669 1 ! EQUATED SYMBOLS: 

: 120 067 1! 

3s 121 a8 NONE 

| ; 72 1! 

= 73 1°! PSECTS: 

; ise 7% «1! 

3 : 5 o : declare_psects (bpa); 

=> $ 77 1°! OWN STORAGE: 

: 128 78 1! 

: 129 79°~«1 

s 130 +8 010 

3; «131 681 1 exit_reason, 


Page 4 
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14-Sep-1984 ASRTL.SRCJBPAS 


. oe 1 exit biogk : VECTOR 43 NITIAL (0, 0, 0, 0), 

. | 1 queve_initted : INITIAL 9. 

3 ! 2 ¢ ! bpa$al_dabhead : VECTOR [2, LONG); 

: 4 686 1! 

7 6 $ 1 ! EXTERNAL REFERENCES: 

te 6 3 1! 

> 3 6 1 ; 

; 140 690 1 EXTERNAL ROUTINE 

; «141 91 1 bpa$get_block 

; 14¢ 92 1 bpa$free_block; | 
; 14 95 1 
> 144 694 1 BUILTIN 
> 145 695 1 INSQUE, 

: 146 696 1 REMQUE ; 
4 147 69 1 | 
; 4148 698 1 EXTERNAL 

3 149 699 1 bpa$gb_usr_prot : BYTE, 

; 150 0700 1 bpa$gb_usr_real : BYTE, 

3 151 0701 1 bpa$al_usrppn : VECTOR C, LONG); 

; 136 a 1 

; 1 0703 1 EXTERNAL LITERAL 

3: 6154 0704 1 


OTS$_FATINTERR; | 
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1 ~3007 138% 94:80:88 BASRTL. RC IBPASSDEAS .B 231 
GLOBAL ROUTINE bpa$assign (firgb) = ! m 319 


'e4 


i FUNCTIONAL DESCRIPTION: 


Routine provides bypper’ for RSTS assign command 
which has various flavours, see below... 


FORMAL PARAMETERS: 
firqb = Pointer to firab ' mM 319 
IMPLICIT INPUTS: 


FIRQB contains either:- 
a) logical device name & real device name, 


b) ppn, 
¢) protection code, 


me 
oo,» 
nn 
Ad 
o 
m 
> 
un” 


or d) device name. 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
Returns TRUE or signals fatal errors. 
SIDE EFFECTS: 


Dependant upon function (a,b.c,d above) :- 
a) logical name entered into process logical name table, 
b) default user ppn established, 
c) default user protection code established, 
or d) specified device is allocated to user. 


WAAL ROPONIPINONUNUNIND 2 2 Ss OOOO 


=OOONO UNE WR 20 OOVNO UE WIN 0 ODNO UNE WN (OOO NOAOUES WIR OVO OTNAUE WN "OOO NOU 
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Ea at ot at et et et eh oh oh hah aha nm 
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Be Oe Se Se Se Se Be Be Se Se Se Se Be Se Se Se Fe Se Ge Ge Ge Ge Ge Se Se Se Fe Ge Ge Ge Se Ge Se Se Ge Ge Gs Ge Gs Se Se Se Se Ge Se Ge Se Se Se Se Ge Se Se Se Se es ee 


BEGIN 
! A 319 
firqb : REF $fqb_def; ! Defines firgb ' A 319 
LOCAL 
pn : VECTOR (10, BYTE), ! pen string 
75 en : BYTE, ! Length of string(s) 
75 sts, ! return status from subr calls 
75 ot, ! string pointer 
75 descrip! : BLOCK fs. MELE 
75 descrip2 : BLOCK YTEJ, 
75 asci : BLOCK (6, BYTE), ! buffer for device name 
ae: asc2 : BLOCK (6, BYTE); ! buffer for device name - 
75 descrip2 Cdsc$w_length) = 0; 
7§ descripe [dsc$b_dtype] = dsc$k_dtype_t; 
76 descripe [dsc$b_class] = dsc$k_class_s; 
76 descripe Cdsc$a_pointer) = asc2; 
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ot + 1; 
cnv_ppn (. firab Cfqb$b_proj], len, ppn C.dot)); 
dot = .dot + .len; 

pen C.dot) = ','; 

dot = .d 


ot + 1; 

:") cnv_ppn (. firagb Cfqb$b_prog], len, ppn C.dot]); 

dot = .dot + A 
9 pen C.dot) = ‘J'; 
3 Casmove dot. bpasal (12) 

-dot, ppn, .bpa$al_usrppn : 
bpaSal_usrppn cB5 = .dot; no 
END 
ELSE 


If .firgb Cfqb$b_prot_real] NEQU 0 

THEN 
BEGIN 
bpa$gb_usr_prot = .firqb Cfqb$b_prot_code); 
bpasgb_usr_real = 1; 


76 
ee IF _.firqb Cfqb$Sw_fqnam1] NEQU 0 
ar88 THEN ae 
bree ae (asc2 ip2 Cd Length], .firqb) 1 mM 319 
cnv_devnam (asc escr sc$w_len ..sfirqb); ! 
Ores bpaSascii_(.firab Efabguefgnant Lens asc1); . 
0768 descrip! Cdsc$w_length] = 0; 
8788 descrip! [dsc$b_dtype] = dsc$k_dtype_t; 
8 0 descrip] Cdsc$b_class] = dsc$k_class_s; 
771 descrip! [dsc$a_pointer] = ascT; 
bere bpa$ascii (.firg Cfab$w_fanam2) fence’ 1 Cdsc$w_length], asci + 3); 
gfe Soeer ie’ Cdsc$w hengtha = descrip! dsc$w_length] + .len; 
774 sts = $crelog (Ebi flg = 2, lognam = eed | eqlnam = descrip2); 
9775 1 M278 
O77? IF NOT .sts THEN RETURN SIGNAL (badfuo, 0, .sts); 
0779 END 
8 44 ELSE 
078 IF .firqb Cfqb$w_ppn] NEQU 0 
0 HA THEN 
0784 BEGIN 
0785 dot = 0; 
0786 pen C.dot) = 'C'; 
0787 dot = .d 
0788 
0789 
0790 
8 91 
0798 
0794 
0795 
0796 
0797 
0798 
0799 
0800 
i 


SSS 
= 


OOooooocoo 
C200 
uw 
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80 ELSE 
808 BEGIN 
sts cnv_devnam (asc2, descrip2 CdscSy_tengeh). -firagb); 
811 bpa$find_dab (.descrip2 Cdsc$w_length], 
316 . -destrip2 Pte My Pies: giro ! m 319 
14 IF .sts EQLU 0 
15 THEN 
8 BEGIN 
ste sts = S$alloc (devnam = descrip2); 
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IF NOT .sts 
RETURN SIGNAL (badfuo, 0, .sts) 


bpaSmake_dab (.descrip2 Céscty, lLengthd, 


.descrip2 (dsc$a_pointer 
END; 
END; 


'End of bpa$assign 
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BPASASSDEAS 
N1=328\ 
-BPASDATA,NOEXE, PIC,2 


4 

0, 0, 0, 0 

0 

8 

BPASGET BLOCK, BPASFREE_BLOCK 
BPASGB_OSR_PROT 

BPASGB_USR-REAL 

BPASAL-USRPPN, OTS$_FATINTERR 
SYSSCRELOG, SYSS$ALLOC 
_BPASCODE,NOWRT, SHR, PIC,2 
BPASASSIGN, Save R2,R3,R4,R5,R6 
eo $94720 DESCRIP2 
ASC DESCRIP +4 
FIROB, R 

(Re) 


R 
DESCRIP2 

asc 

#3. CNV_DEVNAM 
ASC1 


z 
BPASASSDEAS 1b-se -1984 01:40: AX-11 Bliss-32 V4.0-74 P E 
1-328 ae tioe hs rie St YP ht tS ey eed Pe ae 5S 1 
0000v ct 03 FB ; CALLS #3, BPASASCII : : 
0 : 9A MOV ZBL LEN, + 0773 ; 
20 AE AO é ADDW2 RO, DESCRIP? : : 
E p4 A CLRL ss = ¢ §P) + 0774 : 
1c «(AE OOF C PUSHAB DESCRIP2 : ; 
28 AE OF F PUSHAB DESCRIPI : ; 
DD 00062 PUSHL # : ; 
000000906 00 4 i 64 CALLS a, SYSSCRELOG ; | ; 
76 04 AE 5 Bee BLBS 1S, 3$ : 0777 ; 
06 aS Bs Boor 18 eetw BtR2) ‘ 9782. 
A rE 8058 BEQL s : : 
6 D4 0078 CLRL bor : 0785 | F 
28 AE46 58 gf 90 0007 MOVE #91, PPNCDOT) + 0786 | ; 
6 pe 443 INCL 3; 0787. r 
28 AEG6 9F 000 PUSHAB PPNCDOT) : 0788 ; 
04 AE OF 00089 PUSHAB : ; 
7E 07 A2 9A 0008C MOVZBL 7(R2), =(SP) : | : 
0000v CF 03 FB 00 CALLS #3, CNV_PPN : ; 
50 6 9A 0009 MOVZBL LEN, RO : 0789 ; 
56 g8 00098 ADDL2 RO, DOT : : 
28 AEGG eC 0 00098 MOVE #44, PPNCDOT) + 0790. : 
6 D6 000A0 INCL : 0791. ; 
28 AES6 OF OO0A2 PUSHAB PPNCDOT) : 0792. : 
04 AE 9F O00A6 PUSHAB F | F 
7E 06 A SA 44 44 MOVZBL 6(R2), -(SP) : | 3 
0000v CF 03 FB OOOAD CALLS #3, CNV_PPN F | ; 
50 6— 9A 00082 MOVZBL LEN, : 0793. ; 
56 50 ¢O 000B5 ADDL2 RO, DOT : F 
28 AEGO 5D er 90 00088 MOVE #93, PPNCDOT) : 0794, ; 
6 D6 OOOBE INCL : 0795 | F 
50 000000006 00 00 000C0 MOVL.  BPASAL_USRPPN+4, RO > 0796 | F 
0 28 AE 56 28 000C7 MOVC3 DOT, PPN, (RO) : : 
000000006 00 56 00 b00¢¢ MOVL DOT. BPASAL_USRPPN + 0797 | ; 
6C 11 0000 BRB : 0782 | ; 
16 A2 3 90005 2s: TSTB  22(R2) + 0801 | ; 
11 13 00008 BEQL 46s 4$ : 3 
000000006 00 17 A2 90 OOODA MOVB $ 23(R2), BPA$GB_USR_PROT : 08 : 
000000006 00 1 90 Q00E2 MOVB #1, BPASGB_USR_REAC ; 0805 | : 
$ 11 OO0ES 3$: BRB 7$ ; 0801 | : 
DD 000EB 4$: PUSHL R2 ; 0809 : 
1¢ AE 9F OOOED PUSHAB DESCRIP2 : : 
10 AE OF OOF PUSHAB ; F 
0000v CF 03 FB O00F CALLS #3, CNV_DEVNAM : ; 
06 AE OF 000F8 PUSHAB STS : 0811 : 
20 AE pp 000FB SHL DESCRIP2+4 + 0812 : 
7E 0 AE 3C 000F MOVZWL DESCRIP2, -(SP) : 0811 ; 
0000v CF 03 FB 0010 CALLS #3, BPAS$FIND_DAB ; : 
04 AE p 010 TSTL sis : 0814 : 
; O10A BNEQ $ 3 ; 
— 7C€ 0010¢ CLRQ  =(SP) + 0817 : 
7E 7¢ o1 CLRQ =(SP) ; : 
28 «AE OOF 0011 PUSHAB DESCRIP? ; : 
000000006 00 : F gu CALLS #5, SYSS$ALLOC ; : 
04 “ 1) 111A MOVL RO, STS 3 { 
1 04 AE €E8 OO1IE BLBS STS, 6$ : 0819 ‘ 


-——------ 
_BPASASSDEAS 
1-328 

| 

| + Routine Size: 325 bytes, 


; 283 0832 1 


000000006 00 


7E 
0000v gf 


Routine Base: 


§ 3 19 
1e-8ep-19 
04 Ae DD 001 é 5$: 
D4 001 
001A8090 f DD 001 
3 FB 00120 
04 001 
1C «AE ge 155 6$: 
1C¢ 09 i ! 
g 00 1a 7$: 
144 


-BPASCODE + 0000 


S 91 330:88 AX-11 Oi legeae V4.0-74 
1:56: BASRTL.SRC JBPASSDEAS .852;1 
PUSHL STS 
cute, aise 

USH a sOns8 

cart #3, LIBSSIGNAL 
PUSHL DESCRIP2+4 | 
MOVZWL DESCRIP2, <(SP) 
CALLS #2, BPASMAKE_DAB 
MOVL wi, RO 

RET 
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GLOBAL ROUTINE bpa$deassign (firqb) = !m 319 
J 


'e¢ 
! FUNCTIONAL DESCRIPTION: 


wn 


Routine provides support for the RSTS Goseetgn command 


which has several f flavours, see below.. 
FORMAL PARAMETERS: 

firgb = Pointer to firagb ! mM 319 
IMPLICIT INPUTS: 

FIRQB contains either:- 


™ 


Se 


SEER 
WONAVLSWN—OOONOYV SW 0 


. 
; 1 
3 1 
; 1 
; 1 
3 1 
3 1 
: : 
3 1 
3 1 
3 1 
: } 
; 90 1 a) logical device name, 
: : ppn, 
3; wt 850 1! ¢) protection code, 
3 08 083 ; H or d) 5 Sovles name. 
3 05 085 IMPLICIT OUTPUTS: 
: 30 0855 1: NONE 
; 308 0856 1! 
3 +4 oee : } ROUTINE VALUE: 
: 1 + $4 : Always returns TRUE. 
; 13 086) i SIDE EFFECTS: 
: 15 Opes 1/ Dependant upon function (a,b,c,d above) :- 
; 316 66 1! a) Logicet name removed from process logical name table, 
3 317 0865 1! b) default user ppn cleared, 
3 18 0866 1! c) default protection cleared, 
5 $30 st : or d) device is deallocated. 
: 321 0869 1 in 
é ¢ 0870 1 
3 ra pert BEGIN 
: 325 B75 MAP 1A319 
; $6 pore firqb : REF $fqb_def: ! Defines firaqb ' aA 319 
i 328 i LOCAL 
: $3 878 ctrint : BLOCK g. Byte}. 
: 31 879 descrip2 : BLOCK . BYTEJ, 
3 3 880 ascl : VECTOR (6, erred. 
881 asc2 : VECTOR (6, BYTEJ, 
; $e 14 Length; 
; 36 B84 If tira Cfaqb$w_fqnam1) NEQU 0 
; 3 bse BEGIN 
; 339 bpa$ascii (.firab fabsu_ fanaa}. sts, a 
3 0 888 bpaSascii (. wire tabsu_ fqnam2 length, ye? + 3); 
3 1 0889 length = . length -Sts; 


A a SeaClear IN 


3 


| BPASASSDEAS 1b-5e -1984 01:40: AX-11 Bliss-32 V4.0-74 P 1 | 
Ht 1eaeeen abe 94:80:83 — FeAsat sae Sapaskoegs oS2:1 age) | 
; 890 descrip! [dsc$w_length] = .length; 
$ 91 descrip! dscSb-dtype = dc$k-dtype.t; 
3 & 35 descrip! [dsc$b_classJ = dsc$k_class_s; 
3 5 9 escrip! Ldsc$a_pointer] = ascT; 
; re iy gest leg (tblflg = 2, lognam = descrip1); ! M278 
: 348 96 ELSE 
: 350 8 IF .firab Cfabs NEQ 
: 38 ies rab Cfqb$w_ppn] NEQU 0 
3 ¢ 900 bpa$al_usrppn [0] = 0 
; Z 306 ELSE 
; 56 § a Cfqb$Sb_prot_real) NEQU 0 
: 35 905 bpas sr_real = 0 
: 338 906 ese emma s" 
; 59 90 BEGI 
3 0 08 descrip2 Cdsc$w_length] = 0; 
; 361 909 descripé2 (dsc$b_dtype] = dsc$k_dtype_t; 
3 ¢ 0910 descripe Cdsc$b_class] = dsc$k_class_s; 
3 0911 descrip2 (dsc$a_pointer] = asc2; 
: : 344 cnv_devnam (asc2, descrip2 Cascby Length. -firaqb); 
; 0914 bpaSfind_dab (.descrip2 Cdsc$u_lengthd, 
: 7 Bai? .descrip2 tdsc a_pointer], sts); ! Mm 319 
3 9 0317 IF .sts NEQU 0 THEN bpa$release_dab (.sts); 
3 0919 END; 
; 0921 RETURN 1: | 
3 0922 1 END; ‘End of bpa$deassign 
.EXTRN SYSSDELLOG | 
0004 00000 -ENTRY BPASDEASSIGN, Save R2 ; 0833 
35 28 C Boog SUBL2 #40, SP 3 
§ 04 AC 00 000 MOVL FIROQB, R2 5 0886 | 
08 A2 B 444 TSTW 8(R2) 3 
41 1 0 BEQL 1s i 
} AE 9F 00 oF PUSHAB ASC1 ; 0887. 
0 A 3 001 PUSHAB HS 3 
7E 08 he C 00014 MOVZWL (R2), =(SP) b 
0000v CF 03 FB 00018 CALLS #3, BPASASCII ; 
13. AE 9F 0001 PUSHAB ASC1+3 > 0888 
04 A He 0 PUSHAB LENGTH : 
7E he C MOV ptha) -(SP) 3 
0000v CF 03 FB 00 CALLS #3, BPASASCII F 
bE 04 AE CO 000 ADDL2 STS, LENGTH > 0889 
9 AE — 8B MOV so NGTH DESCRIP1 ; 0890 
AE 0106 F MOVW #279, BDESCRIP1+2 : 0891 | 
4 AE 1 E 5 A MOV ASC1, DESCRIP1+4 PF Baee | 
£ i F CLRL = =< SPS > 0894 
24 AE F 00041 PUSHAB DESCRIP! ; 
| 


—— 


gegggssoes 


; Routine Size: 


3 5375 


163 bytes, 


0923 


1 


000000006 00 


06 =A 


000000006 b 


16 #A 

000000006 3 

18 AE O10E 0099 F 
1C = =AE 4 
1C AE 

10 A 

0000v CF 0 
of AE 

0 AE 

7E 20 (OA 

0000v CF 0 
046 =#A 

0 

04 AE 

0000v CF 1 
50 1 
Routine Base: _BPASCODE 


+ 


OU NO 9 MWS OTNOOT OU 0-0-9 - @ - "oO 
So SODIWMIOS DOM Fw Fw 


rf 
ri 


3 
-Sep-19 
-Sep-19 


C 
4$: MOVL 


Be 91:58:83 


AX-11 Ol fegese V4.0-74 
BASRTL.SRC JBPASSDEAS .632;1 
"3 
#3, SYSSDELLOG 
4$ 
(R2) 
BPASAL_USRPPN 
(R2) 
BPASGB_USR_REAL 


#17694720 DESCRIP2 
ase , DESCRIP2+4 


DES RIP2 

#3, CNV_DEVNAM 
sT§ 

DESCRIP2+4 
DESCRIP2, =-(SP) 
#3, BPASFIND_DAB 
sT§ 

4$ 


STS 
#1, BPASRELEASE_DAB 
#1, RO 


De Se Se Fe Se Se Fe Se Ge Se Be Se Fe Se Se Se Te Se Se Fe Fe Se Ge Se Ge Se Ge 


1S-sep-19 4 01 380:88 rete Bliss-32 Fh es Page At 


ergeeseseas 
-328 14-Sep-1984 11: BASRTL.SRC JBPASSDEAS.B 


; a ° : } GLOBAL ROUTINE bpa$deass_all = 

; 37 926 1 its 

; : ; : FUNCTIONAL DESCRIPTION: 

; : 9 j 1/ Routine provides support for the RSTS deassign_all 
: , } command. All allocated devices are deallocated. 

: 385 ; i FORMAL PARAMETERS: 

; a 934 1 i NONE 

3 955 1! 

: 34 9 : : IMPLICIT INPUTS: 

3 4 03 : ; bpa$al_dabhead is a double longword header of the DAB deque. 
3 38 0940 i IMPLICIT OUTPUTS: 

Po ee a 

; 44 0944 1 { ROUTINE VALUE: 

; inp F908 ! Always returns TRUE. 

; 401 948 SIDE EFFECTS: 

: 40 950 1! Removes all entries from the DAB deque. 

; 404 0951 1! 

; 405 a4 1 !-< 

; 406 0953 1 

Bee ee to 

; 409 0956 UNTIL .bpa$al_dabhead EQLU bpa$al_dabhead DO 

: 410 0957 bpa$release_dab (.bpa$al_dabhead); 

th 0989 RETURN 1 

: t18 0960 1 END; ‘End of bpaSdeass_all 


; 0924, 


0004 00000 LENTRY BPASDEASS_ALL, Save R2 : 
$2 00000000" EF 9E 00002 ROVAB BPASAL_DABHEAS, : 
5 62 9 00008 18 MOVAB BPASALDABHEAD, R ? 0956 
50 62 1 9000¢ CMPL  BPASAL“DABHEAD.. RO : | 
09 13 O000F BEQL «oS : 
62 dD 0001 PUSHL  BPASAL_DABHEAD ? 0957. 
0000v CF 1 FB 0001 CALLS #1, BPASRELEASE_DAB : | 
50 FT ho Sota 25 a: ie ? 0959 
Be 00010 RET : 3328 


3; Routine Size: 30 bytes, Routine Base: _BPASCODE + O1E8 


3; 416 0961 +1 


— 


———————————— 


” Length : REF VECTOR C, wood. 
addr : REF VECTOR C, Fone 
answer : REF VECTOR C LONG); ' a 319 


LOCAL 
os 


ys : REF S$dab_def, 
dab2 : REF $dab_def; 


ooo 


next = 0% 
answer (0) = 0; 'm 319 
"Initialize the queue. 


i. . NOT .queue_initted) 
ENBEGIN 
LOCAL 


PASASSDEAS P-3¢ -1984 01:40: AX-11 Bliss-32 v4.0 Pa 14 
ee 1$-sep-1984 4 38: 3 YBASRTL  SRe BPASSDEAS. 5 2:1 - (6) 
: $i$ 966 ! ROUTINE bpa$find_dab (length, addr, answer) : NOVALUE = 'm 319 
: rt 964 1 4 
; 233 965 : FUNCTIONAL DESCRIPTION: 

: 421 1 i Routine scans the dab list to find an entry containin 

: : ¢ 3434 : an identical device name string to that passed to ites 

i 4 970 1 { FORMAL PARAMETERS: 

: 4 6 972 1: Length = Length of string 

; 4 ao addr = address of string 

; 428 974 1! answer = pointer to a longword to voce tue the egerese of the ' A 313 
: r :] 34 ' } dab entry if a match is found = 0 if not found). ' aA 319 
: 431 977 1! IMPLICIT INPUTS: 

3s 6 § 978 1! 

; $980 1 | _ 

> 435 0981 1 | IMPLICIT OUTPUTS: 

3 4 0982 1! 

i [oe 

3 439 0985 ROUTINE VALUE: 

3 441 387 NONE tm 319 
> 46 $989 1 | SIDE EFFECTS: 

: 646 0990 1! 

FH ree 444) : NONE 

> 44 $998 1 ie- 

; 448 444 4 

3; 4469 995 BEGIN 

: ie 


a 


1b-Sep-1964 01:40:25 Yael BLisg=32 V4. 0742 
ast_status, 
de lexh _Status; 


ast_status = $setast (enbflg = 0); 
IF ¢( NOT .queuve_initted) 
a 


exit_b Rand ler; 

exitap block 

exit_block = te reason 

dclexh_status = $dclexh (desblk = exit block); 
gueve., _tnitted = 1; 


Basal ser Ho CO : ” poset debhoad C1] = bpa$al_dabhead [0]; 


dclexh_status = 1; 
If (.ast status EQL ss$_wasset) THEN $setast (enbflg = 1); 
IF ( NOT .dclexh status) THEN SIGNAL (badfuo, 0, .dclexh_status); 


QDOOOCOCOCOOCOCOOCOOOOOOCOCOOoOO 


FEAWWWIWWIInononononononenonnnn 


AO OD NOUS WN" OOONOUES WN" O0 


a 
*° 
io 
° 
- 
° 
. 
e 
7 
° 
. 
2 
° 
° 
2 
° 
. 
o 
. 
° 
7 
a 
o 
* 
. 
° 
. 
° 
o 
6 
8 
° 
= 
° 
2. 
° 
° 
a 
o 
° 
. 
° 
. 
° 
° 
. 
o 
o 
° 
+ 
o 
° 
. 
° 
2 
o 
o 
° 
8 
ae 
. 
a 
& 
° 
. 
° 
7 
° 
. 
o 
* 
° 
o 
° 
. 
° 
. 
° 
a 
° 
ro 
° 
6 
° 
° 
* 
° 
. 
° 
° 
° 
a 
2 
> 
6 
. 
° 
8 
° 
7 
° 


ed a od 4 8 = = = 2 a a + 4 a 


PIPING BONNIE & BEE EWAN NINININININI WINN BB EE EB PUP II 


0 END; 
04 
o¢§ IF .bpa$al_dabhead EQLU bpa$al_dabhead THEN RETURN; ! M 319 
Bez dab2 = .bpa$al_dabhead; 
Oc? D0 
9 BEGIN 
504 050 IF .dab2 Cdab$b_length] EQLU Length (0) 
505 051 Sel en ee ee 
06 b2¢ BEGIN 
507 05 sts = CHSCOMPARE itonget (01, addr [0], length (0), 
508 054 dab2 Cdab$a_name)); 
509 055 
510 928 If .sts EQL 0 
511 05 THEN 
21g 058 BEGIN 
51 059 answer C0) = .dab2; ! mM 319 
514 060 EXITLOOP; 
515 061 END; 
188s ew; 
518 4 
519 065 next = .dab2 Cdab$l_next]; 
5 ° 096 cae © next; 
2 § O98 UNTIL .next EQLU bpa$al_dabhead; 
3 6 096 END; ! End of bpa$find_dab 


~-EXTRN SYSSSETAST, SYSSDCLEXH 


— 
PASASSDEAS 
1538 


3; Routine Size: 


174 bytes, 


$8 dooooo00" fF 
o¢ 3 


Puc 
mn 


59 
: FC 
i 
6 
& 
A 


4 ; 
FO 0000Vv 4 
F4 1 
Fe AB E8 = 
EC A 
000000006 3 9h 
FC OU 4} 
52 9 
09 3 
05 
69 01 
; i 
7E 
001A8090 = BF 
000000006 98 t 
0 6 
50 $3 
54 6 
. 
55 01 
08 BC 04 AG 
55 0 
56 H 
oc BC 8 
57 4 
2 $ 
30 $5 
dO 
Routine Base: _BPASCODE 


+ 


: 


SOOmMOoW fos 


SSSsssssssssssss 


SSsoooooss 
COOooooooo 


Ssos 


Soooooooceda 


SOL OMC OF OOWT OW MDS SO aOwon—Co—- Com ™ 
i=] 


o nT 
™m 
So 
oa 


oODOoooo sssssssssss 


SS 


tis 


oSN 


ROOM—MOD OVO 


COOCCSCGCOOCO COSCO OOOOCOOoOoeooe 


AAO MAMIE & 
VW @D ONL "Woo mou 


RRS BAO OR LS > BID 


> 
wou 


3 
| 
opel 


Roa 
PM 
oo of 


nd Ww 
ad wn 


w 
nr 


o 
w 


~ 
bed 
o 


Be 11:50:83 


03FC 00000 Ort TP 


AB: 
» WORD 
MOVAB 


yer OL iegese V4.0-74 
BASRTL.SRC JBPASSDEAS .852;1 


Save R2,R3,R4,RS,RO,R7,RB,RI 
sys SETAST. RO 


BPASAL_DABHEAD, R8 
NEXT 

@ANSWER 

QUEUE _INITTED, 4$ 
#1, SYSSSETAST 


H R 
RO, BPASAL_DABHEAD+4 

RO, BPASAL~ DABHEAD 

EXIT HANDLER, EXIT_BLOCK+4 


EXIT_BLOCK+ 
EXIT_REASON, EXIT_BLOCK+12 


EXIT-BLOCK 

#1, SYSSOCLEXH 
RO. DCLEXH_STATUS 
a. QUEUVE_TNITTED 
#1, OCLE 

AST_STAT 

3$ 


XH_STATUS 


L 
E 
L 
ATUS, #9 


rt 
#1, SYS$SETAST 
DCLEXH_STATUS, 4$ 
DCLEXH~STATUS 

- SP) 
#1736848 
#3, LIBSSIGNAL 
BPASAL_DABHEAD, RO 

BASAL -DABHEAD. RO 
BPASAL_DABHEAD, DAB2 

#9. #8; 10(DAB2), LENGTH 
“i, RS 

LENGTH, @ADDR, 11(DAB2) 


#1, R5 
R5, STS 


DAB2, @ANSWER 
(DAB2), NEXT 

NEXT, DAB 
BPASAL_DABHEAD, RO 
NEXT, RO 


Kk 3 
16-Sep-1984 01:40: AX-11 Bliss-32 V4.0-74 P 17 
102368 -1$8e 91:98:88 BASRTL. SRC JBPASSDEAS..B 231 ta (7) 


PASASSDEAS 
i598 


ROUTINE VALUE: 
Always returns TRUE. 
SIDE EFFECTS: 
The required # of bytes are got from free core. 


$ or) ROUTINE bpaSmake_dab (length, addr) = 
8 74 !+4 
4 i } FUNCTIONAL DESCRIPTION: 
1 878 Routine inserts a dab into the dab List. 
4 878 FORMAL PARAMETERS: 
5 080 Length = Length of device name string 
81 addr = address of string 
A IMPLICIT INPUTS: 

085 NONE 

IMPLICIT OUTPUTS: 

0 NONE 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


SRVSARANLSSSLE 


=PIPIPIPIPINIMIPI HPP NIPINPIPINIPIDIRD ad at tt at ot 2 


“OSS Ss Oe Ge Se Ge Ge Ge Se Ge Be Ge Ge Ge Ge Ge Se Ge Se Se Se Se Se Ss Se Se Se Se Se eses 


Oo ote atone bis SELLS 


~“ oa 
a ee et ee a ee a ed ad 


PUPVDVPVPVDPV IVP DUPED DUDUSUSVSIVD SUIS SUSU SISSY 


100 
101 BEGIN 
Ie 
; 10 MAP 
: 104 length : REF VECTOR C, WORD], 
: 4 addr : REF VECTOR C, LONG); 
; 107 LOCAL ! A 309 
3 108 sts ! Status returned from calls ! A 309 
; 109 dab : REF S$dab_def; 
; 111 IF NOT (sts = bpa$get_block (dab$k_length_f + Length C0], ! m 309 
3; 3 11g dab2)) ' A 309 
3 3 11 N ' A 309 
5 $ We RETURN SIGNAL (badfuo, 0, .sts); ! A 309 
3; 57 116 CHSMOVE (Length [0], addr [0], dab2 Cdab$a_name)); 
3; «57 117 dab2 (dab$b_Cength} = Length (0); 
s 6S? 118 a ab$w_mode] = 0; 
3: 57 119 INSQUE (.dab2, bpa$al_dabheed); 
: 57 139 RETURN 1; 


END; ! End of bpa$make_dab 


007C 00000 BPASMAKE_DAB: 


BPASASSDEAS : : 
1-328 


1b-se -1984 01:40: AX-11 Bliss-32 V4.0-7 Page 18 
ee tioe hs rie Se ye ht tS rs de oe 
«WORD Save R2,R3,R4,R5,R6 : 1071 
SE 94 C2 0000 Rr ti #4, SP : 
— DD 09 PUSHL SP + 1111 
7E 04 Ac C1 0000 ADDL3 #11, LENGTH, -(SP) : | 
000000006 FB 0¢ CALLS #2 BP ASGET_BLOCK : 
E8 0001 BLES STS, 1$ : 
30 DD 0016 PUSHL TS + 1114) 
—E D4 901 CLRL = (SP) : 
00148090 i DD OOO1A PUSHL #1736848 : 
000000006 00 3 FB 00 0 CALLS #3, LIBSSIGNAL : | 
56 6E 90 8 1$: MOVL.  DAB2, R6 + 1116. 
0B Ab 08 BC 04 AC 028 MOVC3 LENGTH, @ADDR, 11(R6) : | 
OA AG 04 AC 00 é MOVB LENGTH, 10(R65 + 1117 
8 AB B4 003 CLRW (R6) + 1118 
00000000" EF 66 OE 900 A INSQUE (R6), BPASAL_DABHEAD + 1119 
0 01 DO 00041 OVvL #1, RO : 1120 
04 00044 T + 1121 


; Routine Size: 69 bytes, Routine Base: _BPASCODE + 0284 


4 3 
BPASASSDEAS 16-Sep-1984 01:40: AX-11 Bliss-32 V4.0-74 Page 19 
1-328 ergee= 1382 FT ishi8s | HANSA Ok sega aR etc 7he. 9° 6a) 
; 578 11 1 ROUTINE bpa$release_dab (dab_addr) = 
; 579 11 é 1 . Md 2 
3 4 1126 1 !4¢ 
: 5 1 5 : FUNCTIONAL DESCRIPTION: 
5 8s 11 5 1! Routine removes the apeg it ted rs | entry from the List 
: Se 1; 8 : } and deallocates the device described by the entry. 
; 586 1150 1 =! FORMAL PARAMETERS: 
s 587 yh i Res 
3 43 1 ¢ : } dab_addr = address of dab entry in List 
H 90 1134 1°! IMPLICIT INPUTS: 
: 39) i381 3 NONE 
3 238 11 $ 1! 
3 594 11 : 1 ! IMPLICIT OUTPUTS: 
; 595 1139 1! 
; 596 1140 1! NONE 
3 97 1141 1! 
; 598 1106 1 ! ROUTINE VALUE: 
: 200 Wea i i Al TRUE 
3 ! ways returns ‘ 
: 601 1145 11 é 
; 60 1308 1 ! SIDE EFFECTS: 
; 60 114 1! 
; 604 1148 1! The unlinked entry is returned to free core. 
; 605 1149 1! 
; 606 1150 1 !<= 
3; 607 1151 1 
; 608 1126 BEGIN 
3; 609 115 
3; 610 1154 MAP 
3; 611 1155 dab_addr : REF VECTOR C, LONG]; 
3 ots 1156 
3; «61 1157 LOCAL 
3; 614 1158 sts, ' Status returned from calls ' aA 309 
3 615 1159 dab : REF $dab_def, 
; 616 1160 addr, 
3; 617 1161 descrip : BLOCK (8, BYTE); 
3; 618 1166 
: 619 116 dab = dab_addr (0); 
; 620 1164 descrip Cdsc$w_length] = .dab Cdab$b_length); 
: 61 1165 descrip Cdsc$b_dtype] = dsc$k_dtype_t; 
3 6 § 1166 descrip (dsc$b_class] = dsc$k_class_s; 
3; 62 1167 descrip Cdsc$a_pointer]) = dab [dab$a_name); 
3 ose 1168 $dalloc (devnam = gescr ip); 
; 625 1169 REMQUE (dab_addr (0), addr}; 
3; 627 1171 IF NOT (sts = bpa$free_block (dab _addr (0), ' m 309 
; 628 W176 dab$k_length_f~+ .dab Cdab$b_length))) ! a 309 
3 O08 117 N ' A 309 
: 630 1174 RETURN SIGNAL (badfuo, 0, .sts); ' A 309 
3; 631 1175 
3 $35 1178 RETURN 1; 
3 65 117 END; ! End of bpa$release_dab 


n 3 
BPASASSDEAS otane 
Pees 16-Sep-1984 


14-Sep-1984 
.EXTRN 
0004 00000 te 
C2 0000 SUBL 
35 04 66 0008 MOVL 
: 0 MOVZBW 
i a 8 aT 
4 001 CLRL 
F 1A PUSHAB 
000000006 FB 9010 CALLS 
oh 0028 MOV ZBL 
CO 0002C ADDL 
DD O002F PUSHL 
000000006 Fe 90 2 CALLS 
DD 0003C PUSHL 
D4 0003E CLRL 
0018090 DD 00040 PUSHL 
000000006 00 Fe 00046 CALLS 
50 DO OO04E 1$: MOVL 
04 00051 RET 


; Routine Size: 82 bytes, Routine Base: _BPASCODE + 02F9 


634 11 
635 11 


—-9Oo ONuMIO o- 

No MMOS mm 

o o ooo 

- Pr fF DWny 
So OCOONUVMOF,rOCrwor yr @orro 
—|— WFAMOOWVODWMONMMMMO"IO@e 


11:58:83 EBASriusSReSePAsSDEAS-082; 1 


SYSSDALLOC 


DALLOC 
R, ADDR 


vuoO~oMmvU 


"vo 
Bao] 
 vo-oOr~<- 
wo 
~~ 


R 
ASFREE BLOCK 


BeBe Se Ge Ge Se Se Se Ge Se Ge Be Se Be Se Ge Se Be Ge Se Se Be 


AAAS 
Onl w 


t 
Ww 
—rn 


A | 
ie 
an 
3 
2 } 


4 
1b-5e =1984 01:40: AX-11 Bliss-32 V¥4.0-74 P 1 
1 ~Sep-19 4 1:86:83 EBASRTL SRE BPASSDERS 69251 te & 


8 
; e38 1} } GLOBAL ROUTINE bpaSascii (addr, Length, asc) = i 
; g 1188 1 !4¢ i 
3 ory 1 ! : FUNCTIONAL DESCRIPTION: : 
; org 1185 1! Routine converts a word containing a rad-50 representation i 
; ot 1% } : of upto 3 characters into an ascii string. : 
; 645 1188 1 ! NOTE:=- Imbedded spaces will be ignored ! ; 
3 0 | 1189 1! i.e. A<space>B or <space>AB will become AB<null> H 
; 64 11 1: (These are illegal in filenames anyway!) | ; 
3 one 1191 1! 3 
; 646 1338 1! ; 
3; 650 119 1 ! FORMAL PARAMETERS: ‘ 
; 651 1194 1! 3 
; $26 1398 : : On input : addr = word containing rad-50 : 
: 654 1197 1! On output : asc is 3 byte vector containin to 3 ascii chars ‘ 
; 655 1198 1! P Length contains # of chars in Sering : 
; 656 1199 1! ; 
3; 657 1200 1 ! IMPLICIT INPUTS: | 
; 658 1201 1! 3 
3; 659 1 8 1! NONE 3 
; 660 1205 1! 3 
; 661 1206 1 ! IMPLICIT OUTPUTS: 3 
3 666 1205 1! 3 
: 66 1206 1! NONE d 
3 664 1207 4! 3 
; 665 1208 1 ! ROUTINE VALUE: F 
3: 666 1209 1! j 
3: 667 1210 1! Always returns TRUE. 3 
; 668 1217 1! 3 
3 9 1 \ 1 ! SIDE EFFECTS: 3 
; 670 121 1! 3 
3 671 1214 1! NONE j 
3 678 1215 1! : 
3; 67 1216 1 !e- 3 
3 674 1217 1 3 
3 603 1218 BEGIN 3 
3; © $ 1219 3 
; 67 1220 3 
; 678 1221 length : REF VECTOR C, WORD), i 
; 679 12 § asc : REF VECTOR C, BYTE); 3 
; 680 1 ; 
3; 6681 1224 LOCAL 
3 o8¢ 1225 rad, 
; 68 1 $ rcode; 
; 684 1 
3 rH : 3 Length ce = 0; 
3 rag = .acdar; 
3 re, 12350 
; 688 1231 DECR x FROM 2 TO 0 DO 
3; 689 1 BEGIN 
; 690 1 rcode = .rad MOD 20°50’; 
3; 691 1 rad = .rad-, gode: 
: $35 : 5 rad = .rad/%0'50'; 


——————————“_— wm -—-—————— 


i 4 
“BPASASSoEAS r$-sep-1964 01:40:25 yayctt BLisg=s2 y4.0-742 | age 22 


; 694 1237 CASE .rcode FROM %0°0" TO %£0°47° OF 

3 244 ! 3 SET 

: 69 1240 (%0"1" TO 20°32") : 

3 £38 : c3 rcode = .rcode + %0°100'; 

3 5 124 (%0°36" TO 40°47') : 

: ’ 1 ! re rcode = .rcode + %0'22'; 

3 +08 1 “6 (%0°33°) : 

3 re 124 rcode = %C°$'; 

; 705 1 $8 

; re 124 (%20°34°} : 

ee . 1 3 rcode = %C‘.'; 

: 708 1251 

2 1 26 CINRANGE) : 

3 ey ; 27 rcode = %0'0'; ! Ignore 0 & 35 ! 325 
; ng 1255 COUTRANGE) : 

: 71 1256 RETURN SIGNAL (OTSS_FATINTERR); 

: 7146 1257 TES; 

: 715 1258 

; 716 1259 asc (.x] = .rcode; 

: 717 1260 

3 at 1¢6) IF (.rcode NEQU 0) THEN Length [0] = .length (0) + 1; 
: 720 1368 END; 

s fei 1264 

3 us¢ 1362 RETURN 1; 

3; 72 1266 1 END; ‘End of bpa$ascii 


001C 00000 -ENTRY BPASASCII, Save R2,R3,R4 : 1180 | 

BC B4 0000 CLRW  a@LENGTH > 1228. 

4 04 AC DO 0000 MOVL § ADDR, RAD t 1229 | 

3 02 00 0009 MOVL ? > 1259. 

rs 01 7A 0000C 1$: EMUL #1. RAD, #0, -(SP) > 1233 

52 52 gE : 78 0011 EDIV. #46, (SP)+, RCODE, RCODE : | 

4 C2 00016 SUBL2 RCODE, RAD : 1 

54 C6 00019 DIVL 40 > 1235 

27 90 CF 0001C CASEL RCODE, #0, #39 : 1237 
Ose 005€ OSE 00 0020 2$ «WORD 7$-2$.- : 
SE OSE O5E 003 028 $-2$.- F 
5€ O5E SE 05 00 $-2$.- ; 
e Be ee Ba Ee : 
oe Bee Baer Ea: : 
ee Sh HE a Ee 2 
0064 0 0060 $-2$.- : 
0064 64 064 0068 $- $.- : 
$-2$,- 3 
$-2$,- 3 


(i 
© Se Ge Se ee Se Ge Oe Se Ge Ge Ge Ge Se Se Ge Se Ge Se Ge Se Ge Ge Ge Se Ge Se Ge Ge ae 
“I 
So 
o 
WII 


— 


000000006 00 
52 
52 
52 
52 


OC BC43 


02 


50 


; Routine Size: 173 bytes, Routine Base: 


i; 724 1267 1 


AX-11 Bliss-32 V4.0-74 
BASRTL.SRCIBPASSDEAS 832; 1 


se @e eeseeeseeseeseeseeeeeses & & & & & & & & 


4$- 
blag FATINTERR 


RCODE 
RCODE, @ASCCXI 
RCODE 


So 
fo) 


AWWA FIRINIPINIM NEON = 


w=" — 09 ~Oo 9 | OO TSO 
RSV =F BASF —S=S=—S=RROS 


ns} 
nm 


SOOOUD OMMMONONGO-—- F SO 


Pe Se See Ge Se Se Se Be Ge Oe Se Se Se Se Se Se Se Ge Be Se Se Be Se Se Se Be Se Se Be Be Ge Se Se Ge Se Se Se Fe Se Se Se Be Se Se Se Se Se 


a 5) 


; 1256 


; 1241 


1244 
1247 
1250. 


1335 
1359 
1361 


1231 


it 


—e 


ceemeianeseieinnampeeiaetrtn 


4 
° AX-11 Bliss-32 v4.0-7 "68251 Page 4b 
_peagassoeas 1s 3ep-1o8e 91:80:83  EBASRTL SReTBPASSOERS 6 

1 


* } 68 } ROUTINE cnv_ppn (addr, Length, ppn) = 
Be BY 

; 1 t+ ; 

: i 4 pera Te # (max 377) to an 
f ; Me : Routine converts a decimal ppn 

3) 159% | i ASCII string. 

FHA | rem ramen 

' tj t : addr = ppn # 

79 i at : ppn is a 3 byte vector containing the ascii string 
 f sey ov ewan Tength contains the # of chars. 
: 739 : 

i £40 1588 | | IMPLICIT INPUTS: 

BS ge | fete 

; me i Ha i IMPLICIT OUTPUTS: 

ES | | caer 

> 2 } 

; 748 1591 1 | ROUTINE VALUE: 

: 750 ! 4 : Always returns TRUE. 

; 751 

i 2 i 3 i SIDE EFFECTS: 

: 184 1599 1 i NONE 

: 755 1e97 1: 

. oe 

ce : 

: 38 130) 2 BEGIN 

: 60 08 CTOR C, WORD], 

: 983 He pons REF VECTOR C BYTES. 

; 76 

rf 1 

; i } oF =" + VECTOR (3, BYTE, 

: 1309 val; 

; res 1) Length 00) = 0; 

, = 

: 270 ' ig ¥ 0] = vai /100 0: 

; : : = 2¢ £0}#100)/1 

i th is ; i : iat ee C “ ie10 + 1c £03100); 
: i 18 8 awcrx enon 0 10-2 0 

: He 1318 yy PES 4 

rf 20 tet 0) = .tengt 

: 7 1321 

4 1 : ; Aa 1; ‘End of cnv_ppn 
‘ ND; 

; 782 1324 E 

Be 


————— 


FPEEESSOEAS 


51 
51 
52 
02 AE 
OC BC40 
F2 


; Routine Size: 90 bytes, 


Routine Base: 


00000064 


00000064 


01 


00000064 


08 


<3 
™m 
oo 


COOCOCCoCoOSCooo 


= 


—"MOOO—W MPM YS TMM MOO 


SOOWDWMNVWNWOHO & MOU DO 00 & 


16 se 19 
-sep- 
14-Sep-19 


CoOoOoCoooo 


> 
Ssess 


MIFESSRVSVESSAVS 


Torm 

Fuo 
OOoOoCoooo 
Sssss. 
ooooo 


Wn & & & & 


WOOr "Wo — 


oO 
So 
o 


-BPASCODE + 03F8 


Bc 91:50:83 YeAsmt SneSePasSpEas-082;1 


CNV_PPN: 
S 


1$: 


Save R2 
P 


ADDR, VAL 
ai9e VAL, R1 


#100, R1 


#48, CCX], aPPNCX) 
, enere 


#1, RO 


Pe Se Se Se Se Ge Se Ge Se Se Fe Be Se Ge Se Se Be Se Fe Ge Se Se Se 


1315 


poe 
if 


sen- 138+ 91:30:88 area Bliss-32 v4.0- 


74 P 6 
BASRTL.SRC JBPASSDEAS .852; 1 29 199 


Sep-1 
ROUTINE cnv_devnam (asc, dot, firqb) : NOVALUE = !m 319 


'ee 
! FUNCTIONAL DESCRIPTION: 
Routine converts the RSTS-type ice name described 
in a nt ie ad 3 van-type sect string. 
e.g. K => TTEO: 
FORMAL PARAMETERS: 
asc = gesrece of 6-byte vector to store string. 
dot = Pointer to a longword to receive the length of the string ! A 313 
firab = Pointer to firgb ' a 319 


IMPLICIT INPUTS: 


UMEWN—O Now 


firab pb iabtv.devnen’ contains the device name as 2 ascii characters, 
firgb [fqb$Sb_devunit] contains the device decimal unit #. 


IMPLICIT OUTPUTS: 

The asc vector contains the ascii string. 

ROUTINE VALUE: 

NONE ! m 319 


SSSUSR FORTS SE SSIES IESE TOOE 


MEUM OO ODNAOUESWN 0 O@NOU SW OC 0@ 


ee ee SY 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
LOCAL 


5 
5 
12 é SIDE EFFECTS: 
i ; atl 
Mog 
yO 
19 
: 
1 num, 
§ un; 
4 MAP 
firqb : REF $fqb_def ! Defines firgb ! a 319 
$ asc : REF VECTOR"[, BYTE) 
i dot : REF VECTOR £1, words; ' a 319 
9 dot (0) = 0; 'm 319 
1 4 attire CfqbSw_devnam) EQLU ZASCII'KB' 
§ CHSMOVE (2 
é —~ UPLIT BYTE(*TT'), asc C.dot (0]]) |! m 319 
CHSMOVE (2, firqb CfqbSw_devnam], asc C.dot (0])); ! m 319 
dot (0) = .do CO} + 2; 'm 319 
num = -firgd Erap b devunit); 
0 un = (.num*(=4)) + TA‘; 


a 


sna eres PS Py aaa 


SSDEAS 


3 8 


PPA 


NOVEM OO OONOUS Ww 


os De te te 


16-Sep-1984 01:40:25 —-YAX=11 BLisg-32 v4.0 


-Sep-19 1: BASRTL. SRC) BPASSDEAS. 5 2:1 
i, 
asc t oY ton 'm 319 
¢ Fagot ndot (O3'¢ im 319 
If enum GTRU 9 
WEN 
t (03) = ‘1°; 'm 319 
asc Blas -dot £0 +4; im 319 
ave os: (03) = .num + ‘0’; 'm 319 
Co} ¢ 13 im 319 
ase Loe 'm 319 
-dot C0). + “4; 'm 319 
'End of cnv_devnam 


54 54 00452 P.AAA: .ASCII \TT\ 


001¢ 00000 cNV_DEVNAN: 


.WORD Save R2,R3,R4 
52 04 AC 70 00002 mova As¢ R 
63 B84 000 CLRW 3s (R35 
50 0¢ AC 00 000 VL  FIROB, RO 
4248 28F 18 AO 8] 000 MP 24 (ROS, #16971 
0C 12 0001 BNEQ $ 
51 6 3¢ 001 MOVZ2WL (R3), R1 
6142 9F 00017 PUSHAB (R1)(R2) 
9E El AF 80 OO1A MOVW P.AAA, a(SP)+ 
OA 001 BRB 2$ 
51 63 3C 00020 1$: MOVZWL (R3), R1 
6142 9F 000 PUSHAB (RID ER2] 
Hi 18 AO B 00 6 MOVW 24(RO), a(SP)+ 
$ 02 AO O002A 28: ADDW2 a2 (R$) 
0 1A OA 9A 002D MOVZBL 26(RO), NUM 
51 30 FC} «6BF «O78 00031 ASHL #4 , RI 
1 41 Al 9€ MOVAB 65(R1), UN 
50 04 09 F A €XTZV #0, #4. NUM, NUM 
4 ¢ F vV2WL (RS), RO 
6442 1 4 MOVB UN, :~-(R4)CR2] 
; 86 4 INCW =. (RB) 
09 4 CMPL . 
¢ B 00048 BLEQU 3$ 
51 $ C 00040 MOVZWL (RB) 
6142 i 90 0 MOVB #49, (R1)CR2) 
63 86 INCW = (R35 
50 A $ SUBL2 #10, NUM 
31 $ ¢ 3$ MOV2WL (R35, RI 
6142 0 0 ¢ ADDB3 #48, NUM, (R1)C(R2) 
5 3 ef p ; ey ite 
6025 F 6 66 MOVB ss #58, (ROD ER23 


Page oy 


BPASASSOEAS iEeseoctgge 01:40:25 yauclt Oh isg=52 y4eta7eg, Page, 28 
e3 po gone ICU (RB) : 1387 


3; Routine Size: 109 bytes, Routine Base: _BPASCODE + 0454 


4 
5 aaa WEScortgGe O1:48:85 YASH, ObegaBb tbe Be74Ra, Pat 18) 


3 1399 1 ROUTINE exit_handler ( ! Exit handler 
: 14 1 exit reason ! reason 
3 14 | ) : NOVACUE = 

3 14 1 

3 14 1 fe¢ 

; \¢ : : } FUNCTIONAL DESCRIPTION: 

3 14 1: This is the exit handler for assign/deassign. 

3 14 1! It deallocates all devices, in case any have not been 
: 1208 : : deallocated already. 

3 1219 1 FORMAL PARAMETERS: 

3 re ; EXIT_REASON.rl.r Not used 

; 1414 1°! IMPLICIT INPUTS: 

3 1415 1! 

3 1o1g 7 NONE 

; 1417 1! 

; 1233 1 ! IMPLICIT OUTPUTS: 

: 1419 1! 

3 1420 1! NONE 

: 1421 1! 

3 14 ¢ 1 ! ROUTINE VALUE: 

3 rte 14 1! 

3 1424 1! NONE 

} HH 1425 1! 

: 886 14 $ 1 ! SIDE EFFECTS: 

3; 887 14 1! 

; 888 1428 1! Deassigns the devices, if there are any. 

3; 889 1429 1! 

3 530 1430 1 !<- 

3; «891 1431 1 

; 89 1636 BEGIN 

; 89 14 ppercocss_olt 0); 

: 894 1434 RETURN; 

; «4895 1435 1 ND; 'End of exit_handler 


0000 00000 EXIT_HANDLER: 


eWORD Save perniee 3 13 
FD20 CF 00 FB 00008 CALLS #0, BPASDEASS_ALL 3 14 
04 0000 RET 7 14 
3; Routine Size: 8 bytes, Routine Base: _BPASCODE + 04C1 
3 a6 1436 1 END ‘End of module bpa$assdeas 
3: 897 1437 1 
; 898 1438 0 ELUDOM 


FegSESsrens If: sen 19K4 PHiSR:63 PONSA SRE SaPAsSbeks 682; Page 435 
eEXTRN LIBSSIGNAL 

: PSECT SUMMARY 

; Name Bytes Attributes 

; -Bpagbare 1238 NOVEC:NOURT: RD SEXES Sue: CEL: RELL CON; PICCACLONCSS 

; Library Statistics 

; cssccsee Gye sececese Pages Processing 

; File Total Loaded Percent Mapped Time 

; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 15 0 581 00:01.1 

: COMMAND QUALIFIERS 

; BLISS/CHECK SCF IELD. INITIAL .OPTIALZE) /MOTRACE/L 1591 138: 8PASSOEAS/08)208S :BPASSBEAS MSRC$:BPASSDEAS/UPDATE=(ENH$: BPASSDEAS 

Size: 1223 egge + 34 data bytes 
un Time 3 


classed. Time: 00:59.7 
Lines/CPU Min: 
Lexemes/CPU-Min: 27196 

f Used: 157 pages 
Compilation Complete 


